home *** CD-ROM | disk | FTP | other *** search
/ Creative Review 28 / Creative-Review-CD-ROM-28.iso / pc / kungfu / assets / intro.dir / 00121_Script_poll class < prev    next >
Text File  |  1997-08-08  |  2KB  |  80 lines
  1. -- poll class
  2. -- -------------------------------------------------- 
  3.  
  4. property obj
  5. property folderpath
  6. property xtraname
  7. property disposeflag
  8.  
  9. -- ==================================================
  10. -- new method
  11. -- --------------------------------------------------
  12. on new me, props
  13.   
  14.   minit me, props
  15.   return me
  16.   
  17. end mnew 
  18.  
  19. -- ==================================================
  20. -- minit method
  21. -- --------------------------------------------------
  22. on minit me
  23.   
  24.   put "in minit poll"
  25.   
  26.   if the machinetype = 256 then
  27.     set platformseperator = "\"
  28.     set xtraname = "KeyPoll.x32"
  29.   else 
  30.     set platformseperator = ":"
  31.     set xtraname = "KeyPoll.mac"
  32.   end if
  33.   
  34.   set folderpath = "xtra" & platformseperator
  35.   
  36.   openxlib the moviepath & folderpath & xtraname
  37.   
  38.   set obj = new ( xtra "KeyPoll" )
  39.   
  40.   set disposeflag = false
  41.   
  42.   put "out minit poll"
  43.   
  44. end minit 
  45.  
  46. -- ==================================================
  47. -- monekey poll method
  48. -- --------------------------------------------------
  49. on monekey  me, thecode
  50.   
  51.   return bgonekey ()
  52.   
  53. end monekey
  54.  
  55. -- ==================================================
  56. -- mgetallkeys poll method
  57. -- --------------------------------------------------
  58. on mgetallkeys
  59.   
  60.   return bgallkeys ()
  61.   
  62. end mgetallkeys 
  63.  
  64. -- ==================================================
  65. -- mdispose poll method
  66. -- --------------------------------------------------
  67. on mdispose me
  68.   
  69.   put "in mdispose poll"
  70.   
  71.   if not ( disposeflag ) then
  72.     set disposeflag = true
  73.     set obj = 0
  74.     closexlib the moviepath & folderpath & xtraname
  75.   end if
  76.   
  77.   put "out mdispose poll"
  78.   
  79. end mdispose
  80.